home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 October / CHIP Ekim 1996.iso / winbatch / sysinfo.wb_ < prev    next >
Text File  |  1995-08-17  |  3KB  |  104 lines
  1. CR=strcat(Num2char(13),Num2Char(10))
  2. TAB=Num2Char(9)
  3.  
  4. BoxOpen("SysInfo","Sysinfo is examining your system.%cr%Please wait.")
  5.  
  6. wintype="retail"
  7. if WinMetrics(22) then wintype="debug"
  8.  
  9. wcx=WinMetrics(-4)
  10. math="Math"
  11. switch wcx
  12.     case 1
  13.     case 2
  14.     case 3
  15.         cpu= ItemExtract(6,WinSysInfo(),@tab)
  16.         wc=WinConfig()
  17.         if !(wc&1) then mode="Real"
  18.         if wc&16 then mode="Standard"
  19.         if wc&32 then mode="Enhanced"
  20.         
  21.         if wc&64 then cpu=8086
  22.         if wc&128 then cpu=80186
  23.         if wc&2 then cpu=286
  24.         if wc&4 then cpu=386
  25.         if wc&8 then cpu=486
  26.         mode = strcat(mode,' ',wintype,' Windows ')
  27.         if !(wc&1024)  then math="No math"
  28.         break
  29.         
  30.     case 4
  31.        cpu= ItemExtract(6,WinSysInfo(),@tab)
  32.        wcy=WinMetrics(-3)
  33.        switch wcy    
  34.             case 1 ; Win32 Intel
  35.                  mode="Intel 32-bit %wintype% Windows "
  36.                  break
  37.             case 2 ; Dec Alpha
  38.                  mode="DEC Alpha %wintype% Windows NT "
  39.                  break
  40.             case 3 ; MIPS
  41.                  mode="MIPS %wintype% Windows NT "
  42.                  break
  43.             case 4 ; PowerPC 
  44.                  mode="PowerPC %wintype% Windows NT "
  45.                  break
  46.        endswitch
  47.     
  48.     case 5
  49.         cpu= ItemExtract(6,WinSysInfo(),@tab)
  50.         mode="Intel 32-bit %wintype% Windows 95+ Ver "
  51.         break
  52.         
  53.    case wcx ; Unknown 
  54.         cpu= ItemExtract(6,WinSysInfo(),@tab)
  55.         mode="Unknown platform %wintype% Windows  "
  56.         break
  57. endswitch
  58.         Sysinfo=strcat(cpu,' ',mode,WinVersion(1),'.',WinVersion(0),CR)
  59.  
  60.  
  61. mouse="No Mouse"
  62. if WinMetrics(19) then mouse="Mouse"
  63.  
  64. Sysinfo=strcat(sysinfo,math," co-processor.   ",mouse,' available.',CR)
  65.  
  66.  
  67.  
  68. sysinfo=strcat(sysinfo,WinMetrics(0),'x',WinMetrics(1)," video resolution.  ",WinMetrics(-1),"  colors.",CR)
  69.  
  70. ErrorMode(@OFF)
  71. LastError()
  72. PlayMedia("Status WaveForm Ready")
  73. ErrorMode(@CANCEL)
  74. if LastError()!=1193 then sysinfo=strcat(sysinfo,"Windows multimedia extensions present.",CR)
  75.  
  76. math=NetInfo(0)
  77. if math=="MULTINET" then math=strcat(math,"/",NetInfo(1))
  78. sysinfo=strcat(sysinfo,math," Network installed.",CR) 
  79.  
  80. bug=WinResources(11)/1024   ; Get Physical memory avail
  81. sysinfo=strcat(sysinfo,CR,bug," KB Physical Memory",CR)
  82. bug=(WinResources(14)/1024)+bug   ; Get Virtual memory + Physical avail
  83. sysinfo=strcat(sysinfo,bug," KB Total Memory",CR)
  84.  
  85. sysinfo=strcat(sysinfo,"Console ",DosVersion(1),'.',DosVersion(0),"  using ",environment("COMSPEC"),CR)
  86. disks=DiskScan(1)
  87. disks=strreplace(disks,@tab," ")
  88. if disks!="" then sysinfo=strcat(sysinfo,"Floppies ",disks,CR)
  89. disks=DiskScan(2)
  90. disks=strreplace(disks,@tab," ")
  91. if disks!="" then sysinfo=strcat(sysinfo,"Hard Disks ",disks,CR)
  92. disks=DiskScan(4)
  93. disks=strreplace(disks,@tab," ")
  94. if disks!="" then sysinfo=strcat(sysinfo,"Network Disks ",disks,CR)
  95. sysinfo=strcat(sysinfo,"Windows Directory ",DirWindows(0),CR)
  96. sysinfo=strcat(sysinfo,"System  Directory ",DirWindows(1),CR)
  97. sysinfo=strcat(sysinfo,CR,"WIL Interpreter Ver ",VersionDll())
  98.  
  99.  
  100. ver=Version()
  101. Message("WinBatch %ver% SysInfo",Sysinfo)
  102.  
  103.  
  104.